#!/usr/bin/perl
#
while($line=<STDIN>) {
	if($line=~/vib:([^\s]+)/) {
		$vibs{$1}++;
	}
}

foreach $vib (sort {$vibs{$b}<=>$vibs{$a}} keys %vibs) {
	print $vib."\t".$vibs{$vib}."\n";
}

